If Webpartmanager1.Personalization.Scope = PersonalizationScope.User AndAlso Webpartmanager1.Personalization.CanEnterSharedScope Then
                
      Webpartmanager1.Personalization.ToggleScope()
End If
